home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / SysGen / MAKEDISASSEM < prev    next >
Encoding:
Text File  |  1991-12-27  |  895 b   |  62 lines
  1.  
  2.  
  3. INCLUDE? CONDITION jf:CONDITION
  4. INCLUDE? @BITS jf:@BITS
  5. INCLUDE? SELECT jf:SELECT
  6. INCLUDE? $TABLE jf:$TABLE
  7. include? module jf:module
  8.  
  9.  
  10. .NEED disassem
  11.       module disassem
  12. .THEN
  13.  
  14.  
  15. ' disassem M.LOADED @ .IF
  16.  
  17.     detachmodule DISASSEM
  18.  
  19. .THEN
  20.  
  21.  
  22. only FORTH definitions
  23.  
  24. .need makedisass?
  25.     variable makedisass?   makedisass? on
  26. .THEN
  27.  
  28.  
  29. makedisass? @
  30.  
  31. .IF
  32.  
  33.     20 MakeModule DISASSEM
  34.  
  35.     include jf:dism
  36.  
  37.     cr ." Writing MOD:DISASSEM.MOD" cr cr
  38.  
  39.     SealModule DISASSEM  detachmodule DISASSEM
  40.  
  41. .THEN
  42.  
  43. \
  44. \ Module installed, build interface to it...
  45. \
  46.  
  47.  
  48. WillGet DISASSEM DEF
  49. WillGet DISASSEM DISM
  50. WillGet DISASSEM RELDISM
  51. WillGet DISASSEM RISM
  52. WillGet DISASSEM ADISM
  53. WillGet DISASSEM DISM-DONE?
  54. WillGet DISASSEM DISM-WORD?
  55. WillGet DISASSEM INIT-DISM
  56. WillGet DISASSEM DISM-CYCLES
  57. WillGet DISASSEM DISM-NAMES
  58. WillGet DISASSEM DISM-ORIGIN
  59. WillGet DISASSEM .REGNAMES?
  60. WillGet DISASSEM SHOW-CYCLES
  61.  
  62.